;;; compiled by jwz@thalidomide on Tue Aug 18 17:20:44 1992
;;; from file /u/jwz/emacs19/lisp/packages/xscheme.el
;;; emacs version 19.2.2 Lucid.
;;; bytecomp version 2.08; 2-aug-92.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs18.
(if (and (boundp 'emacs-version)
(or (and (boundp 'epoch::version) epoch::version)
(string-lessp emacs-version "19")))
(error "This file was compiled for Emacs19."))
(require 'scheme)
(defvar scheme-program-name "scheme" "\
*Program invoked by the `run-scheme' command.")
(defvar scheme-band-name nil "\
*Band loaded by the `run-scheme' command.")
(defvar scheme-program-arguments nil "\
*Arguments passed to the Scheme program by the `run-scheme' command.")
(defvar xscheme-allow-pipelined-evaluation t "\
If non-nil, an expression may be transmitted while another is evaluating.
Otherwise, attempting to evaluate an expression before the previous expression
has finished evaluating will signal an error.")
(defvar xscheme-startup-message "This is the Scheme process buffer.\nType \\[advertised-xscheme-send-previous-expression] to evaluate the expression before point.\nType \\[xscheme-send-control-g-interrupt] to abort evaluation.\nType \\[describe-mode] for more information.\n\n" "\
String to insert into Scheme process buffer first time it is started.
Is processed with `substitute-command-keys' first.")
(defvar xscheme-signal-death-message nil "\
If non-nil, causes a message to be generated when the Scheme process dies.")
With argument, asks for a command line." (byte-code "«é┴ ½å─┼\n\"¬ü\n)Cç" [xscheme-process-command-line xscheme-default-command-line default current-prefix-arg read-string "Run Scheme: "] 3)])
(fset 'reset-scheme #[nil "└┴!ë½î├\n!─=½à┼╞!¡ö╟╚!ê\n½à╔\n╩\"ê╦!ê╟═!)ç" [get-process "scheme" process process-status run yes-or-no-p "The Scheme process is running, are you SURE you want to reset it? " message "Resetting Scheme process..." kill-process t xscheme-start-process xscheme-process-command-line "Resetting Scheme process...done"] 4 "\